IF EXISTS (SELECT * FROM SYSOBJECTS WHERE name='spSeguridadConsecutivos' and XTYPE='P')
BEGIN
	DROP PROCEDURE [dbo].[spSeguridadConsecutivos]
END
GO
CREATE PROCEDURE [dbo].[spSeguridadConsecutivos]
	 @OP VARCHAR(64)=NULL
	,@ParamAuxiliar NVARCHAR(MAX)=NULL   /* PARAMETRO AUXILIAR */
	,@ID INT=NULL
	,@FechaUltModific SMALLDATETIME=NULL
	,@UsuarioUltModific VARCHAR(32)=NULL
	,@CodConsecutivo VARCHAR(32)=NULL
	,@Descripcion VARCHAR(512)=NULL
	,@ProximoConsecutivo INT=NULL  OUTPUT
	,@Activo BIT=NULL
WITH ENCRYPTION
AS
SET NOCOUNT ON
BEGIN TRY

--DECLARE @AUX VARCHAR(2048)

/*****     OPERACION POR DEFECTO    *****/
IF @OP IS NULL OR @OP = ''
BEGIN
	SELECT
		t.*
	FROM
		[dbo].[SeguridadConsecutivos] t
	RETURN 0
END

/*****     OPERACION POR DEFECTO    *****/
IF @OP = 'ObtenerProximoConsecutivo'
BEGIN

	--- Si no se encuentra consecutivo para codConsecutivo indicado, se agrega un nuevo registro a la tabla
	IF NOT EXISTS (SELECT TOP 1 * FROM [dbo].[SeguridadConsecutivos] t WHERE CodConsecutivo=@CodConsecutivo)
	BEGIN
		INSERT INTO	[dbo].[SeguridadConsecutivos]
			(FechaUltModific,UsuarioUltModific,CodConsecutivo,Descripcion,ProximoConsecutivo,Activo)
		VALUES
			(GETDATE(),dbo.fnGetUsuarioSession(),@CodConsecutivo,@CodConsecutivo,1,1)
	END
	
	--select * from SeguridadConsecutivos
	--- Obtengo el proximo consecutivo
	SELECT
		@ProximoConsecutivo=ProximoConsecutivo
	FROM
		[dbo].[SeguridadConsecutivos] t
	WHERE
		CodConsecutivo=@CodConsecutivo	
	
	
	IF @ParamAuxiliar IS NOT NULL AND @ParamAuxiliar <> ''
	BEGIN
		RETURN 0
	END
	
	--- Incremento el proximo consecutivo
	UPDATE 
		[dbo].[SeguridadConsecutivos] 
	SET 
		FechaUltModific=GETDATE(),
		UsuarioUltModific=dbo.fnGetUsuarioSession(),
		ProximoConsecutivo=ProximoConsecutivo+1 
	WHERE 
		CodConsecutivo=@CodConsecutivo	
	
	RETURN 0
END

--- Si se llega a este punto es porque el @OP indicado no Existe en el Procedimiento Almacenado
IF @OP IS NOT NULL
	BEGIN
	SET @ParamAuxiliar='La Operacion "'+@OP+'" No esta definida en el Procedimiento almacenado "'+OBJECT_NAME(@@PROCID)+'", Revise!.'
	RAISERROR(@ParamAuxiliar,16,1)
	RETURN 1
END

--- CONTROLAR Y REGISTRAR LOS ERRORES
END TRY
BEGIN CATCH
	--- Recopilo la informacion del error
	DECLARE @ERROR_NUMBER INT=ERROR_NUMBER(),@ERROR_SEVERITY INT=ERROR_SEVERITY(),@ERROR_STATE INT=ERROR_STATE(),@ERROR_PROCEDURE VARCHAR(128)=ERROR_PROCEDURE(),@ERROR_LINE INT=ERROR_LINE(),@ERROR_MESSAGE VARCHAR(2048)=ERROR_MESSAGE()
	--- Si hay transacciones abiertas, hago un rollback, SE ENCIERRA EN UN (TRY-CATCH) PARA QUE NO SE MUESTRE EL ERROR: Transaction count after EXECUTE indicates a mismatching number of BEGIN and COMMIT
	IF(@@TRANCOUNT>0) BEGIN BEGIN TRY ROLLBACK TRANSACTION END TRY BEGIN CATCH END CATCH END
	--- Ejecuto el SP que controla y registra el error
	EXEC [spSeguridadMessageException] @OP='MostrarMensaje',@ERROR_NUMBER=@ERROR_NUMBER,@ERROR_SEVERITY=@ERROR_SEVERITY,@ERROR_STATE=@ERROR_STATE,@ERROR_PROCEDURE=@ERROR_PROCEDURE,@ERROR_LINE=@ERROR_LINE,@ERROR_MESSAGE=@ERROR_MESSAGE
	RETURN 1
END CATCH;
